home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WSH 2.xpl < prev    next >
Text File  |  2001-10-27  |  2KB  |  61 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Built in Windows Apps\Windows Scripting Host"
  5. "NAME"="Windows Scripting Host Security Options"
  6. "VERSION"="1.00"
  7. ---"OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Allow all scripts to be run (default)"
  10. "TEXT 2"="Display warning if a unsigned script is about to be run"
  11. "TEXT 3"="Do not allow unsigned scripts to be run "
  12. "DESCRIPTION 1"="Since WSH 5.6, a script file can be signed. Because signing requires the author to registry her/his name with a certificate authority, it unlikely that viruses will use signed scripts."
  13. "DESCRIPTION 2"="However, newly created scripts by Microsoft are signed. So, if you select the third option "good" script from Microsoft are still allowed to be run, while any script file that is not signed are not allowed to run. This gives you a good protection."
  14. "DESCRIPTION 3"="IMPORTANT! This setting only applies if you have WSH 5.6 or above. WSH 5.6 is included with XP but can be downloaded for other Windows versions from http://www.microsoft.com/scripting/"
  15. "COMMENT 1"=" "
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19.  
  20.  
  21. sCheckPath="HKLM\Software\Microsoft\Windows Script Host\"
  22. sP="HKLM\Software\Microsoft\Windows Script Host\Settings\TrustPolicy"  'DW
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize
  26.     i=RegReadValue(sP)
  27.     if IsEmpty(i) then
  28.        SetUIElement 1,true
  29.     else
  30.        if i="0" then SetUIElement 1,true
  31.        if i="1" then SetUIElement 2,true
  32.        if i="2" then SetUIElement 3,true
  33.     end if
  34. END SUB
  35.  
  36. 'Called when the Plugin should validate the Data the user has entered
  37. SUB Plugin_CheckData(ElementIndex)
  38. END SUB
  39.  
  40. 'Called when the Plugin should apply the changes
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  if GetUIElement(1)=true then
  43.     s="0"
  44.  else
  45.     if GetUIElement(2)=true then
  46.        s="1"
  47.     else
  48.        s="2"
  49.     end if
  50.  end if
  51.  
  52.  Call RegWriteValue(sP,s,1)
  53.  
  54.  
  55. END SUB
  56.  
  57. 'Called when the Plugin is about to be removed from memory
  58. SUB Plugin_Terminate
  59.  
  60. END SUB
  61.